home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software USA 5 #5
/
Software USA Volume 5.05.iso
/
pc
/
homeoff
/
zilch
/
run
/
zilchs21.exe
/
0
/
RCDATA
/
TMAINFORM
/
TMAINFORM.txt
Wrap
Text File
|
1999-01-29
|
26KB
|
1,031 lines
object MainForm: TMainForm
Left = 252
Top = 190
AutoScroll = False
Caption = 'Zilch'
ClientHeight = 434
ClientWidth = 632
Ctl3D = False
Color = clBtnText
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Menu = MainMenu
Position = poScreenCenter
ShowHint = True
OnActivate = FormActivate
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 16
object TopPanel1: TPanel
Left = 0
Top = 0
Width = 632
Height = 55
Align = alTop
BevelInner = bvLowered
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
object cboxStartMonth: TComboBox
Left = 16
Top = 22
Width = 49
Height = 21
Hint = 'Month you start your repayment plan'
TabStop = False
Style = csDropDownList
Ctl3D = False
DropDownCount = 12
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'Jan'
'Feb'
'Mar'
'Apr'
'May'
'Jun'
'Jul'
'Aug'
'Sep'
'Oct'
'Nov'
'Dec')
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = cboxStartMonthChange
end
object cboxStrategy: TComboBox
Left = 158
Top = 22
Width = 183
Height = 21
Hint = 'Entries sorted by annual percentage rate'
TabStop = False
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'Annual Percentage Rate'
'Quick Elimination'
'Custom Arrangement'
'Lowest Balance First'
'Highest Balance First'
'Lowest Payment First'
'Highest Payment First')
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnChange = cboxStrategyChange
end
object cboxPlan: TComboBox
Left = 513
Top = 22
Width = 97
Height = 21
Hint = 'Pledge Money used immediately'
TabStop = False
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'Immediate'
'Deferred')
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnChange = cboxPlanChange
end
object btnPledgeMoney: TButton
Left = 384
Top = 21
Width = 89
Height = 22
Hint = 'Click to change Pledge Money amount'
Caption = '$1000'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
TabStop = False
OnClick = btnPledgeMoneyClick
end
object TopPanelLabels: TPanel
Left = 2
Top = 2
Width = 628
Height = 18
Align = alTop
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 5
object TopPanelLabelMonth: TPanel
Left = 0
Top = 0
Width = 99
Height = 18
Align = alLeft
Alignment = taRightJustify
BevelOuter = bvNone
Caption = 'Start Month '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 0
end
object TopPanelLabelStrategy: TPanel
Left = 99
Top = 0
Width = 194
Height = 18
Align = alLeft
Alignment = taRightJustify
BevelOuter = bvNone
Caption = 'Payoff Strategy '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 1
end
object TopPanelLabelPledge: TPanel
Left = 293
Top = 0
Width = 176
Height = 18
Align = alLeft
Alignment = taRightJustify
BevelOuter = bvNone
Caption = 'Pledge Money '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 2
end
object TopPanelLabelPlan: TPanel
Left = 469
Top = 0
Width = 140
Height = 18
Align = alLeft
Alignment = taRightJustify
BevelOuter = bvNone
Caption = 'Repayment Plan '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 3
end
end
object cboxStartYear: TComboBox
Left = 72
Top = 22
Width = 54
Height = 21
Hint = 'Year you start your repayment plan'
TabStop = False
Style = csDropDownList
Ctl3D = False
DropDownCount = 7
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'1990'
'1991'
'1992'
'1993'
'1994'
'1995'
'1996'
'1997'
'1998'
'1999'
'2000'
'2001'
'2002'
'2003'
'2004'
'2005'
'2006'
'2007'
'2008'
'2009'
'2010'
'2011'
'2012'
'2013'
'2014'
'2015'
'2016'
'2017'
'2018'
'2019'
'2020'
'2021'
'2022'
'2023'
'2024'
'2025')
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = cboxStartYearChange
end
end
object MiddlePanel: TPanel
Left = 0
Top = 55
Width = 632
Height = 360
Align = alClient
BevelInner = bvLowered
Color = clBackground
Ctl3D = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'System'
Font.Style = [fsBold]
ParentCtl3D = False
ParentFont = False
TabOrder = 1
object Image1: TImage
Left = 2
Top = 2
Width = 628
Height = 356
Align = alClient
Stretch = True
end
object Panel7: TPanel
Left = 41
Top = 15
Width = 493
Height = 22
BevelOuter = bvNone
Color = clBlack
TabOrder = 15
end
object Panel6: TPanel
Left = 15
Top = 213
Width = 519
Height = 17
BevelOuter = bvNone
Color = clBlack
TabOrder = 14
end
object Panel5: TPanel
Left = 15
Top = 44
Width = 535
Height = 162
BevelOuter = bvNone
Color = clBlack
TabOrder = 13
end
object sgridCreditorInfo: TStringGrid
Left = 10
Top = 40
Width = 536
Height = 162
ColCount = 6
DefaultColWidth = 24
DefaultRowHeight = 22
RowCount = 30
FixedRows = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect, goThumbTracking]
ParentFont = False
ScrollBars = ssVertical
TabOrder = 0
OnClick = sgridCreditorInfoClick
ColWidths = (
24
141
41
102
102
103)
end
object StringGridLabels: TPanel
Left = 38
Top = 10
Width = 493
Height = 24
Alignment = taRightJustify
BevelInner = bvLowered
Caption = 'StringGridLabels'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object StringGridLabelCreditorName: TPanel
Left = 2
Top = 2
Width = 138
Height = 20
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Creditor Name'
TabOrder = 0
end
object StringGridLabelAPR: TPanel
Left = 140
Top = 2
Width = 42
Height = 20
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'APR'
TabOrder = 1
end
object StringGridLabelCurrentBalance: TPanel
Left = 182
Top = 2
Width = 103
Height = 20
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Current Balance'
TabOrder = 2
end
object StringGridLabelMonthlyPmt: TPanel
Left = 285
Top = 2
Width = 103
Height = 20
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Monthly Pmt'
TabOrder = 3
end
object StringGridLabelPaymentCap: TPanel
Left = 388
Top = 2
Width = 103
Height = 20
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Minimum Pmt'
TabOrder = 4
end
end
object btnAdd: TButton
Left = 557
Top = 44
Width = 66
Height = 22
Hint = 'Adds a new record'
Caption = 'Add...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = btnAddClick
end
object btnEdit: TButton
Left = 557
Top = 70
Width = 66
Height = 22
Hint = 'Changes the highlited record'
Caption = 'Edit...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = btnEditClick
end
object btnMoveUp: TButton
Left = 557
Top = 151
Width = 66
Height = 22
Hint = 'Moves the highlighted record up one row'
Caption = 'Move Up'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = btnMoveUpClick
end
object btnMoveDn: TButton
Left = 557
Top = 179
Width = 66
Height = 22
Hint = 'Moves the highlighted record down one row'
Caption = 'Move Dn'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = btnMoveDnClick
end
object btnDelete: TButton
Left = 557
Top = 96
Width = 66
Height = 22
Hint = 'Deletes the highlighted record'
Caption = 'Delete'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = btnDeleteClick
end
object TotalBar: TPanel
Left = 11
Top = 210
Width = 520
Height = 17
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
object TotalBarCreditors: TPanel
Left = 1
Top = 1
Width = 26
Height = 15
Align = alLeft
BevelInner = bvLowered
BevelOuter = bvNone
Caption = '0'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object TotalBarDescription: TPanel
Left = 27
Top = 1
Width = 182
Height = 15
Align = alLeft
BevelOuter = bvNone
Caption = 'Totals'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object TotalBarBalance: TPanel
Left = 209
Top = 1
Width = 103
Height = 15
Align = alLeft
Alignment = taRightJustify
BevelInner = bvLowered
BevelOuter = bvNone
Caption = '$0.00 '
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object TotalBarPayment: TPanel
Left = 312
Top = 1
Width = 103
Height = 15
Align = alLeft
Alignment = taRightJustify
BevelInner = bvLowered
BevelOuter = bvNone
Caption = '$0.00 '
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
end
object btnSort: TButton
Left = 557
Top = 18
Width = 66
Height = 22
Hint = 'Sorts records by Payoff Strategy'
Caption = 'Sort'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 8
OnClick = btnSortClick
end
object Panel1: TPanel
Left = 32
Top = 244
Width = 229
Height = 98
BevelOuter = bvNone
Color = clBlack
TabOrder = 9
end
object Panel2: TPanel
Left = 28
Top = 241
Width = 230
Height = 98
BevelInner = bvRaised
BorderStyle = bsSingle
Color = 15269887
Ctl3D = False
ParentCtl3D = False
TabOrder = 10
object Label2: TLabel
Left = 8
Top = 2
Width = 213
Height = 47
AutoSize = False
Caption =
'Click this button to perform financial analysis and play "what-i' +
'f" on each debt listed above.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
WordWrap = True
end
object IndividualBtn: TButton
Left = 62
Top = 60
Width = 105
Height = 24
Caption = 'Debt Analysis'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = IndividualBtnClick
end
end
object Panel3: TPanel
Left = 379
Top = 244
Width = 229
Height = 98
BevelOuter = bvNone
Color = clBlack
TabOrder = 11
end
object Panel4: TPanel
Left = 375
Top = 241
Width = 230
Height = 98
BevelInner = bvRaised
BorderStyle = bsSingle
Color = 15269887
Ctl3D = False
ParentCtl3D = False
TabOrder = 12
object Label3: TLabel
Left = 8
Top = 2
Width = 213
Height = 47
AutoSize = False
Caption =
'Click this button to formulate a rapid debt repayment plan on th' +
'e entire group of debts listed above.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
WordWrap = True
end
object MultipleBtn: TButton
Left = 62
Top = 60
Width = 105
Height = 24
Caption = 'Debt Reduction'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = MultipleBtnClick
end
end
end
object StatusBar: TPanel
Left = 0
Top = 415
Width = 632
Height = 19
Align = alBottom
BevelInner = bvLowered
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 2
object Label4: TLabel
Left = 403
Top = 2
Width = 56
Height = 14
Caption = 'Status Bar'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object StatusBarFileName: TPanel
Left = 2
Top = 2
Width = 216
Height = 15
Align = alLeft
Alignment = taRightJustify
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 4
Top = 0
Width = 22
Height = 14
Caption = ' File:'
Transparent = True
end
end
object StatusBarModified: TPanel
Left = 218
Top = 2
Width = 106
Height = 15
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
end
end
object MainMenu: TMainMenu
Left = 440
Top = 382
object menuFile: TMenuItem
Caption = '&File'
ShortCut = 32838
object menuNew: TMenuItem
Caption = '&New'
Hint = 'Clears the creditor information'
OnClick = menuNewClick
end
object menuOpen: TMenuItem
Caption = '&Open...'
Hint = 'Opens a Zilch Windows File (zwf]'
OnClick = menuOpenClick
end
object menuSeparator1: TMenuItem
Caption = '-'
end
object menuSave: TMenuItem
Caption = '&Save'
Hint = 'Saves the current file'
OnClick = menuSaveClick
end
object menuSaveAs: TMenuItem
Caption = 'Save &As...'
Hint = 'Saves the current file with a new name'
OnClick = menuSaveAsClick
end
object menuSeparator2: TMenuItem
Caption = '-'
end
object menuDelete: TMenuItem
Caption = '&Delete'
Hint = 'Lets you delete a Zilch Windows File (zwf)'
OnClick = menuDeleteClick
end
object menuSeparator3: TMenuItem
Caption = '-'
end
object menuExit: TMenuItem
Caption = 'E&xit'
Hint = 'Ends program'
ShortCut = 32883
OnClick = menuExitClick
end
end
object menuLoans: TMenuItem
Caption = 'Loans'
ShortCut = 32844
object menuLoanPayment: TMenuItem
Caption = 'Calculate Loan Payment...'
OnClick = menuLoanPaymentClick
end
object menuLoanPriceRange: TMenuItem
Caption = 'Calculate Price Range...'
OnClick = menuLoanPriceRangeClick
end
object menuCalculateRemainingBalance: TMenuItem
Caption = 'Calculate Remaining Balance...'
OnClick = menuCalculateRemainingBalanceClick
end
end
object menuInvestments: TMenuItem
Caption = 'Investments'
ShortCut = 32841
object menuFVLumpSum: TMenuItem
Caption = 'Future Value of Lump Sum...'
OnClick = menuFVLumpSumClick
end
object menuFVRegularDeposits: TMenuItem
Caption = 'Future Value of Regular Deposits...'
OnClick = menuFVRegularDepositsClick
end
object menuLumpSumForFV: TMenuItem
Caption = 'Lump Sum Required for Future Value...'
OnClick = menuLumpSumForFVClick
end
object menuRegularDepositsForFV: TMenuItem
Caption = 'Regular Deposits Required for Future Value...'
OnClick = menuRegularDepositsForFVClick
end
end
object Preferences2: TMenuItem
Caption = 'Preferences'
object BackgroundColor1: TMenuItem
Caption = 'Choose Background'
object MenuBgDenim: TMenuItem
Caption = 'Denim'
Checked = True
OnClick = MenuBgDenimClick
end
object MenuBgMint: TMenuItem
Caption = 'Mint'
OnClick = MenuBgMintClick
end
object MenuBgSlate: TMenuItem
Caption = 'Slate'
OnClick = MenuBgSlateClick
end
object MenuBgCoffee: TMenuItem
Caption = 'Coffee'
OnClick = MenuBgCoffeeClick
end
object MenuBgDusk: TMenuItem
Caption = 'Dusk'
OnClick = MenuBgDuskClick
end
object MenuBgForest: TMenuItem
Caption = 'Forest'
OnClick = MenuBgForestClick
end
object MenuBgPlum: TMenuItem
Caption = 'Plum'
OnClick = MenuBgPlumClick
end
object MenuBgNone: TMenuItem
Caption = 'None'
OnClick = MenuBgNoneClick
end
end
object Preferences1: TMenuItem
Caption = 'Currency Symbol'
object USDollarSign1: TMenuItem
Caption = '$ US Dollar Sign'
Checked = True
OnClick = USDollarSign1Click
end
object ImperialPoundSign1: TMenuItem
Caption = 'ÔøΩ Imperial Pound Sign'
OnClick = ImperialPoundSign1Click
end
end
object N4: TMenuItem
Caption = '-'
end
object ReportShading: TMenuItem
Caption = 'Report Shading'
object rsGreen: TMenuItem
Caption = 'Light Green'
Checked = True
OnClick = rsGreenClick
end
object rsGray: TMenuItem
Caption = 'Light Gray'
OnClick = rsGrayClick
end
object rsNone: TMenuItem
Caption = 'No Shading'
OnClick = rsNoneClick
end
end
object ReportTitlePosition: TMenuItem
Caption = 'Report Title Position'
object rpLeft: TMenuItem
Caption = 'Left Justify'
Checked = True
OnClick = rpLeftClick
end
object rpCenter: TMenuItem
Caption = 'Centered'
OnClick = rpCenterClick
end
end
object ReportBuilderMenu: TMenuItem
Caption = 'Report Builder ...'
Visible = False
OnClick = ReportBuilderMenuClick
end
object ProVersion: TMenuItem
Caption = 'Professional Version'
Visible = False
OnClick = ProVersionClick
end
end
object menuHelp: TMenuItem
Caption = 'Help'
ShortCut = 32840
object Help1: TMenuItem
Caption = 'Contents'
OnClick = Help1Click
end
object FrequentlyAskedQuestions1: TMenuItem
Caption = 'Frequently Asked Questions'
OnClick = FrequentlyAskedQuestions1Click
end
object N1: TMenuItem
Caption = '-'
end
object menuAbout: TMenuItem
Caption = 'About...'
OnClick = menuAboutClick
end
end
object MenuOrder: TMenuItem
Caption = 'Order'
Hint = 'Fillout && print order form'
object PrintOrderForm1: TMenuItem
Caption = 'Print Order Form...'
OnClick = PrintOrderForm1Click
end
object N2: TMenuItem
Caption = '-'
end
object ToOrderByPhone1: TMenuItem
Caption = ' To Order By Phone'
end
object MenuPhoneNumber: TMenuItem
Caption = ' Call (301) 932-7027'
end
object MonSat8am5pmEST1: TMenuItem
Caption = 'Mon-Sat 8am-5pm [EST]'
end
end
end
object menuOpenFileDlg: TOpenDialog
Filter = ' Zilch Files [*.zwf]|*.zwf'
Options = [ofHideReadOnly, ofFileMustExist]
Title = 'Open File'
Left = 520
Top = 382
end
object menuSaveFileDlg: TSaveDialog
Filter = 'Zilch Files [*.zwf]|*.zwf'
Options = [ofOverwritePrompt, ofHideReadOnly]
Title = 'Save File As'
Left = 480
Top = 382
end
object menuDeleteFileDlg: TOpenDialog
Filter = ' Zilch Files [*.ZWF]|*.zwf'
Options = [ofHideReadOnly, ofFileMustExist]
Title = 'Delete File'
Left = 554
Top = 382
end
end